# NOT RUN {
# dummy inputs, independent variable
# integers from 0 to 9
inputs <- 0:9
# dummy targets/observed values, dependent variable
# a product of 2*times inputs minus 5 with some normal noise
targets <- -5 + inputs*2 + rnorm(10)
# linear regression model
model<-lm(targets~inputs)
# About the model
summary(model)
# Number of Terms
n = length(model$coefficients)
# model's predicted values against targets
predicted<-model$fitted.values
# using library ehaGoF for goodness of fit.
library(ehaGoF)
# Goodness of fit statistics
GoF(targets, predicted, nTermInAppr=n)
# }
Run the code above in your browser using DataLab